Public Class NavigationBarItem
    Private _text As String
    Private _url As String

    Public Sub New(ByVal text As String, ByVal url As String)
        Me._text = text
        Me._url = url
    End Sub

    Public Property Text() As String
        Get
            Return _text
        End Get
        Set(ByVal Value As String)
            _text = Value
        End Set
    End Property

    Public Property Url() As String
        Get
            Return _url
        End Get
        Set(ByVal Value As String)
            _url = Value
        End Set
    End Property
End Class
